home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TeX 1995 July
/
TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO
/
systems
/
mac
/
oztex-german
/
OzTeX-1.4d.sit.bin
/
OzTeX 1.4
/
TeX-inputs
/
Times-LFONTS.tex
< prev
next >
Wrap
Text File
|
1989-10-26
|
41KB
|
925 lines
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% This modified version of LFONTS.TEX is for creating the Times-LaTeX format.
% See Times-LaTeX.tex for details.
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% File LFONTS - Version of 10 April 1989
%
% This version of LFONTS.TEX is for the CMR fonts. It was converted
% from the AMR version by David Fuchs on 18 December 1985.
% And corrected on 11 Nov 1986 by Leslie Lamport.
% Last vestige of AMR fonts removed 3 Mar 89 by Leslie Lamport.
% This file needs to be customized for the fonts available at a particular
% site. There are three places where changes need to be made. They
% can be found by searching this file for the string FONT-CUSTOMIZING.
%
% FONT CONVENTIONS
%
% A TYPESTYLE COMMAND is something like \it that defines a type style.
% Each style command \xx is defined to be \protect\pxx, where
% \pxx is defined to choose the correct font for the current size.
% This allows style commands to appear in 'unsafe' arguments where
% protection is required.
%
% A SIZE COMMAND is something like \normalsize that defines a type size.
% It is defined by the document style. However, \normalsize is handled
% somewhat differently because it is called so often--e.g., on every
% page by the output routine. The document style defines \@normalsize
% instead of \normalsize.
%
% A ONE-SIZE typestyle is one that exists only in the \normalsize size.
%
% A FONT-SIZE COMMAND is one that defines \textfont, \scriptfont and
% \scriptscriptfont for the font families corresponding to preloaded fonts,
% as well as the typestyle commands for the preloaded fonts. Each
% font-size command has an associated @fontsize command, having the same
% name except for an '@' at the front. All font-size commands are defined
% in LFONTS. The naming convention is that a fifteenpt font has a font-size
% name \xvpt, and so on.
%
% Each size command \SIZE executes the command
% \@setsize\SIZE{BASELINESKIP}\FONTSIZE\@FONTSIZE
% which does the following.
% 0. Executes \@nomath\SIZE to issue warning if in math mode.
% 1. \let \@currsize = \SIZE
% 2. Sets \strutbox to a strut of height .7 * BASELINESKIP and
% depth .3 * BASELINESKIP
%
% Note: Charles Karney observed that step 2 is useless, since the
% \FONTSIZE command executed in step 4 resets \strutbox using
% the actual baselineskip, which is \baselinestretch * BASELINESKIP.
% Some day, this step may get removed. (Note made 28 Feb 89)
%
% 3. Sets \baselineskip to \baselinestretch * BASELINESKIP
% and
% 4. Calls \FONTSIZE
% 5. Executes the \@FONTSIZE command.
% It should then define all the typestyle commands not defined by the font-size
% command, except for the one-size type styles. A typestyle command for which
% the corresponding font exists but is not preloaded is defined to expand to a
% \@getfont command. A typestyle whose font does not exist is defined to
% expand to a \@subfont command.
%
% A one-size typestyle whose font is not preloaded is defined to expand to
% a \@onesizefont command.
%
% \em is defined to be \it inside an unslanted style and \rm inside a
% slanted style. An \em command in a section title will produce a \pem
% command in the table of contents.
%
\def\em{\protect\pem{}}
\def\pem{\ifdim \fontdimen\@ne\font >\z@ \rm \else \it \fi}
\def\normalsize{\ifx\@currsize\normalsize \rm \else \@normalsize\fi}
% \load{SIZE}{STYLE} : Solves anomaly of loaded-on-demand font
% used for first time in math mode. Give this command outside math
% mode, before formula using it for first time.
\def\load#1#2{\let\@tempa\@currsize \let\@currsize\relax #1#2\@tempa}
% \newfont{\CMD}{FONT} defines \CMD to be the font FONT.
% It is equivalent to \font \CMD = FONT
% \symbol{NUM} == \char NUM
\def\newfont#1#2{\@ifdefinable #1{\font #1=#2\relax}}
\def\symbol#1{\char #1\relax}
% \@getfont \STYLE \FAM \@FONTSIZE{LOADING.INFO}
% \STYLE = style command
% \FAM = a control sequence defined by \newfam\FAM
% \@FONTSIZE = the @fontsize command for the current size.
% LOADING.INFO = information needed to load the font--e.g.,
% cmtti10 \magstep 2
% Does the following, where \FONTNAME denotes a new unique, untypeable
% font name:
% 1. Executes \font \FONTNAME = LOADING.INFO
% 2. Appends '\textfont FAM \FONTNAME \def\STYLE{\fam \FAM \FONTNAME}'
% to the definition of \@FONTSIZE.
% 3. Executes \@FONTSIZE \STYLE.
%
% \@nohyphens\STYLE\@FONTSIZE
% Used right after \@getfont to set \hyphenchar of the new font to -1,
% thereby prohibiting hyphenation. It is used with \tt fonts.
% (\@nohyphens was added on 12/18/85)
%
% \@subfont \STYLE \REPSTYLE
% \STYLE, \REPSTYLE = type style commands.
% Types warning message and defines uses \REPSTYLE.
%
% \@onesizefont \STYLE {LOADING.INFO}
% Defines \STYLE to be a typestyle that exists only for the \normalsize
% size. It produces the font specified by LOADING.INFO
%
% \@addfontinfo\@FONTSIZE{DEFS}
% Expands DEFS and adds to the definition of \@FONTSIZE. Items that should
% not be expanded should be protected with \@prtct---except no protection
% is needed for '\def\foo', only for the contents of the definition.
%
% \@nomath\CS : Types a warning '\CS used in math mode' if encountered
% in math mode.
% Remove \outer from definition of \newfam
\def\newfam{\alloc@8\fam\chardef\sixt@@n}
\def\@setsize#1#2#3#4{\@nomath#1\let\@currsize#1\baselineskip
#2\setbox\strutbox\hbox{\vrule height.7\baselineskip
depth.3\baselineskip width\z@}\baselineskip\baselinestretch\baselineskip
\normalbaselineskip\baselineskip#3#4}
\newif\if@bold
\let\@prtct=\relax
\def\@addfontinfo#1#2{{\def\@prtct{\noexpand\@prtct\noexpand}\def\def{\noexpand
\def\noexpand}\xdef#1{#1#2}}}
\def\@getfont#1#2#3#4{\@ifundefined{\string #1\string #3}{\global\expandafter
\font \csname \string #1\string #3\endcsname #4\relax
\@addfontinfo#3{\textfont #2\csname \string #1\string #3\endcsname
\scriptfont #2\csname \string #1\string #3\endcsname
\scriptscriptfont #2\csname \string #1\string #3\endcsname
\def#1{\fam #2\csname\string #1\string #3\endcsname}}}{}#3#1}
\def\@nohyphens#1#2{\global\expandafter \hyphenchar\csname
\string #1\string #2\endcsname \m@ne}
\def\@subfont#1#2{\@warning{No \string#1\space typeface in
this size, using \string#2}#2}
\def\@onesizefont#1#2{\expandafter\newfam\csname fm\string#1\endcsname
\global\expandafter\font\csname ft\string#1\endcsname #2\relax
\gdef#1{\ifx \@currsize\normalsize \@ftfam#1\else
\@warning{Typeface \string#1\space available only in
\string\normalsize, using \string\rm}\gdef #1{\ifx \@currsize\normalsize
\textfont\@fontfam#1 \scriptfont\@fontfam#1 \scriptscriptfont
\@fontfam#1\@ftfam#1\else \rm\fi}#1\fi}#1}
\def\@ftfam#1{\fam\csname fm\string#1\endcsname\csname ft\string#1\endcsname}
\def\@nomath#1{\ifmmode \@warning{\string#1\space in math mode.}\fi}
\def\@nomathbold{\ifmmode \@warning{\string\mathbold\space in math mode.}\fi}
% The following definitions save token space. E.g., using \@height
% instead of height saves 5 tokens at the cost in time of one macro
% expansion.
\def\@height{height}
\def\@depth{depth}
\def\@width{width}
%% FONT-CUSTOMIZING: The following \font commands define the
%% preloaded LaTeX fonts. Font names should be changed to cause
%% different fonts to be loaded in place of these particular fonts.
%% \font commands should be added or deleted to change which fonts
%% are preloaded.
\input psnames.tex
\xdef\PSnorm{\TimesR}
\xdef\PSital{\TimesI}
\xdef\PSbold{\TimesB}
\xdef\PSboit{\TimesBI}
\xdef\PSslan{\TimesS}
\xdef\PSsltt{\CourierO}
\xdef\PStype{\Courier}
\xdef\PSsans{\Helv}
\xdef\PSsani{\HelvO}
\xdef\PSsanb{\HelvB}
\xdef\PSsymb{\Symbol}
\def\atvpt { at 5pt}
\def\atvipt { at 6pt}
\def\atviipt { at 7pt}
\def\atviiipt{ at 8pt}
\def\atixpt { at 9pt}
\def\atxpt { at 10pt}
\def\@halfmag{ at 10.95pt}
\def\@magi { at 12pt}
\def\@magii { at 14.4pt}
\def\@magiii { at 17.28pt}
\def\@magiv { at 20.74pt}
\def\@magv { at 24.88pt}
% five point
\font\fivrm = \PSnorm \atvpt % normal
\font\fivmi = cmmi5 % math italic
\skewchar\fivmi ='177 % for placement of accents
%\font\fivmib = cmmib10 \atvpt % bold math italic
\font\fivsy = cmsy5 % math symbols
\skewchar\fivsy ='60 % for placement of math accents
%\font\fivsyb = cmbsy10 \atvpt % bold math symbols
%\font\fivit = \PSital \atvpt % text italic
%\font\fivsl = \PSslan \atvpt % slanted
%\font\fivbf = \PSbold \atvpt % extended bold
%\font\fivbfs = \PSboit \atvpt % extended bold slanted
%\font\fivtt = \PStype \atvpt % typewriter
%\font\fivtti = cmitt10 \atvpt % italic typewriter
%\font\fivtts = \PSsltt \atvpt % slanted typewriter
%\font\fivsf = \PSsans \atvpt % sans serif
%\font\fivsfi = \PSsani \atvpt % italic sans serif
%\font\fivsfb = \PSsanb \atvpt % bold sans serif
%\font\fivsc = cmcsc10 \atvpt % small caps
\font\fivly = lasy5 % LaTeX symbols
%\font\fivlyb = lasyb10 \atvpt % LaTeX symbols
%\font\fivuit = cmu10 \atvpt % unslanted italic
% six point
\font\sixrm = \PSnorm \atvipt % normal
\font\sixmi = cmmi6 % math italic
\skewchar\sixmi ='177 % for placement of accents
%\font\sixmib = cmmib10 \atvipt % bold math italic
\font\sixsy = cmsy6 % math symbols
\skewchar\sixsy ='60 % for placement of math accents
%\font\sixsyb = cmbsy10 \atvipt % bold math symbols
%\font\sixit = \PSital \atvipt % text italic
%\font\sixsl = \PSslan \atvipt % slanted
%\font\sixbf = \PSbold \atvipt % extended bold
%\font\sixbfs = \PSboit \atvipt % extended bold slanted
%\font\sixtt = \PStype \atvipt % typewriter
%\font\sixtti = cmitt10 \atvipt % italic typewriter
%\font\sixtts = \PSsltt \atvipt % slanted typewriter
%\font\sixsf = \PSsans \atvipt % sans serif
%\font\sixsfi = \PSsani \atvipt % italic sans serif
%\font\sixsfb = \PSsanb \atvipt % bold sans serif
%\font\sixsc = cmcsc10 \atvipt % small caps
\font\sixly = lasy6 % LaTeX symbols
%\font\sixlyb = lasyb10 \atvipt % LaTeX symbols
%\font\sixuit = cmu10 \atvipt % unslanted italic
% seven point
\font\sevrm = \PSnorm \atviipt % normal
\font\sevmi = cmmi7 % math italic
\skewchar\sevmi ='177 % for placement of accents
%\font\sevmib = cmmib10 \atviipt % bold math italic
\font\sevsy = cmsy7 % math symbols
\skewchar\sevsy ='60 % for placement of math accents
%\font\sevsyb = cmbsy10 \atviipt % bold math symbols
\font\sevit = \PSital \atviipt % text italic
%\font\sevsl = \PSslan \atviipt % slanted
%\font\sevbf = \PSbold \atviipt % extended bold
%\font\sevbfs = \PSboit \atviipt % extended bold slanted
%\font\sevtt = \PStype \atviipt % typewriter
%\font\sevtti = cmitt10 \atviipt % italic typewriter
%\font\sevtts = \PSsltt \atviipt % slanted typewriter
%\font\sevsf = \PSsans \atviipt % sans serif
%\font\sevsfi = \PSsani \atviipt % italic sans serif
%\font\sevsfb = \PSsanb \atviipt % bold sans serif
%\font\sevsc = cmcsc10 \atviipt % small caps
\font\sevly = lasy7 % LaTeX symbols
%\font\sevlyb = lasyb10 \atviipt % LaTeX symbols
%\font\sevuit = cmu10 \atviipt % unslanted italic
% eight point
\font\egtrm = \PSnorm \atviiipt % normal
\font\egtmi = cmmi8 % math italic
\skewchar\egtmi ='177 % for placement of accents
%\font\egtmib = cmmib10 \atviiipt % bold math italic
\font\egtsy = cmsy8 % math symbols
\skewchar\egtsy ='60 % for placement of math accents
%\font\egtsyb = cmbsy10 \atviiipt % bold math symbols
\font\egtit = \PSital \atviiipt % text italic
%\font\egtsl = \PSslan \atviiipt % slanted
%\font\egtbf = \PSbold \atviiipt % extended bold
%\font\egtbfs = \PSboit \atviiipt % extended bold slanted
%\font\egttt = \PStype \atviiipt % typewriter
%\font\egttti = cmitt10 \atviiipt % italic typewriter
%\font\egttts = \PSsltt \atviiipt % slanted typewriter
%\font\egtsf = \PSsans \atviiipt % sans serif
%\font\egtsfi = \PSsani \atviiipt % italic sans serif
%\font\egtsfb = \PSsanb \atviiipt % bold sans serif
%\font\egtsc = cmcsc10 \atviiipt % small caps
\font\egtly = lasy8 % LaTeX symbols
%\font\egtlyb = lasyb10 \atviiipt % LaTeX symbols
%\font\egtuit = cmu10 \atviiipt % unslanted italic
% nine point
\font\ninrm = \PSnorm \atixpt % normal
\font\ninmi = cmmi9 % math italic
\skewchar\ninmi ='177 % for placement of accents
%\font\ninmib = cmmib10 \atixpt % bold math italic
\font\ninsy = cmsy9 % math symbols
\skewchar\ninsy ='60 % for placement of math accents
%\font\ninsyb = cmbsy10 \atixpt % bold math symbols
\font\ninit = \PSital \atixpt % text italic
%\font\ninsl = \PSslan \atixpt % slanted
\font\ninbf = \PSbold \atixpt % extended bold
%\font\ninbfs = \PSboit \atixpt % extended bold slanted
\font\nintt = \PStype \atixpt % typewriter
\hyphenchar\nintt = -1 % suppress hyphenation in \tt font
%\font\nintti = cmitt10 \atixpt % italic typewriter
%\font\nintts = \PSsltt \atixpt % slanted typewriter
%\font\ninsf = \PSsans \atixpt % sans serif
%\font\ninsfi = \PSsani \atixpt % italic sans serif
%\font\ninsfb = \PSsanb \atixpt % bold sans serif
%\font\ninsc = cmcsc10 \atixpt % small caps
\font\ninly = lasy9 % LaTeX symbols
%\font\ninlyb = lasyb10 \atixpt % LaTeX symbols
%\font\ninuit = cmu10 \atixpt % unslanted italic
% ten point
\font\tenrm = \PSnorm \atxpt % normal
\font\tenmi = cmmi10 % math italic
\skewchar\tenmi ='177 % for placement of accents
%\font\tenmib = cmmib10 % bold math italic
\font\tensy = cmsy10 % math symbols
\skewchar\tensy ='60 % for placement of math accents
%\font\tensyb = cmbsy10 % bold symbols
\font\tenit = \PSital \atxpt % text italic
\font\tensl = \PSslan \atxpt % slanted
\font\tenbf = \PSbold \atxpt % extended bold
\font\tenbfs = \PSboit \atxpt % extended bold slanted
\font\tentt = \PStype \atxpt % typewriter
\hyphenchar\tentt = -1 % suppress hyphenation in \tt font
%\font\tentti = cmitt10 % italic typewriter
%\font\tentts = \PSsltt \atxpt % slanted typewriter
\font\tensf = \PSsans \atxpt % sans serif
%\font\tensfi = \PSsani \atxpt % italic sans serif
%\font\tensfb = \PSsanb \atxpt % bold sans serif
%\font\tensc = cmcsc10 % small caps
\font\tenly = lasy10 % LaTeX symbols
%\font\tenlyb = lasyb10 % bold LaTeX symbols
%\font\tenuit = cmu10 % unslanted italic
% eleven point
\font\elvrm = \PSnorm \@halfmag % normal
\font\elvmi = cmmi10 \@halfmag % math italic
\skewchar\elvmi ='177 % for placement of accents
%\font\elvmib = cmmib10 \@halfmag % bold math italic
\font\elvsy = cmsy10 \@halfmag % math symbols
\skewchar\elvsy ='60 % for placement of math accents
%\font\elvsyb = cmbsy10 \@halfmag % bold symbols
\font\elvit = \PSital \@halfmag % text italic
\font\elvsl = \PSslan \@halfmag % slanted
\font\elvbf = \PSbold \@halfmag % exelvded bold
%\font\elvbfs = \PSboit \@halfmag % exelvded bold slanted
\font\elvtt = \PStype \@halfmag % typewriter
\hyphenchar\elvtt = -1 % suppress hyphenation in \tt font
%\font\elvtti = cmitt10 \@halfmag % italic typewriter
%\font\elvtts = \PSsltt \@halfmag % slanted typewriter
\font\elvsf = \PSsans \@halfmag % sans serif
%\font\elvsfi = \PSsani \@halfmag % italic sans serif
%\font\elvsfb = \PSsanb \@halfmag % bold sans serif
%\font\elvsc = cmcsc10 \@halfmag % small caps
\font\elvly = lasy10 \@halfmag % LaTeX symbols
%\font\elvlyb = lasyb10 \@halfmag % bold LaTeX symbols
%\font\elvuit = cmu10 \@halfmag % unslanted italic
% twelve point
\font\twlrm = \PSnorm \@magi % normal
\font\twlmi = cmmi10 \@magi % math italic
\skewchar\twlmi ='177 % for placement of accents
%\font\twlmib = cmmib10 \@magi % bold math italic
\font\twlsy = cmsy10 \@magi % math symbols
\skewchar\twlsy ='60 % for placement of math accents
%\font\twlsyb = cmbsy10 \@magi % bold symbols
\font\twlit = \PSital \@magi % text italic
\font\twlsl = \PSslan \@magi % slanted
\font\twlbf = \PSbold \@magi % extended bold
%\font\twlbfs = \PSboit \@magi % extended bold slanted
\font\twltt = \PStype \@magi % typewriter
\hyphenchar\twltt = -1 % suppress hyphenation in \tt font
%\font\twltti = cmitt10 \@magi % italic typewriter
%\font\twltts = \PSsltt \@magi % slanted typewriter
\font\twlsf = \PSsans \@magi % sans serif
%\font\twlsfi = \PSsani \@magi % italic sans serif
%\font\twlsfb = \PSsanb \@magi % bold sans serif
%\font\twlsc = cmcsc10 \@magi % small caps
\font\twlly = lasy10 \@magi % LaTeX symbols
%\font\twllyb = lasyb10 \@magi % bold LaTeX symbols
%\font\twluit = cmu10 \@magi % unslanted italic
% fourteen point
\font\frtnrm = \PSnorm \@magii % normal
\font\frtnmi = cmmi10 \@magii % math italic
\skewchar\frtnmi ='177 % for placement of accents
%\font\frtnmib = cmmib10 \@magii % bold math italic
\font\frtnsy = cmsy10 \@magii % math symbols
\skewchar\frtnsy ='60 % for placement of math accents
%\font\frtnsyb = cmbsy10 \@magii % bold symbols
%\font\frtnit = \PSital \@magii % text italic
%\font\frtnsl = \PSslan \@magii % slanted
\font\frtnbf = \PSbold \@magii % extended bold
%\font\frtnbfs = \PSboit \@magii % extended bold slanted
%\font\frtntt = \PStype \@magii % typewriter
%\font\frtntti = cmitt10 \@magii % italic typewriter
%\font\frtntts = \PSsltt \@magii % slanted typewriter
%\font\frtnsf = \PSsans \@magii % sans serif
%\font\frtnsfi = \PSsani \@magii % italic sans serif
%\font\frtnsfb = \PSsanb \@magii % bold sans serif
%\font\frtnsc = cmcsc10 \@magii % small caps
\font\frtnly = lasy10 \@magii % LaTeX symbols
%\font\frtnlyb = lasyb10 \@magii % bold LaTeX symbols
%\font\frtnuit = cmu10 \@magii % unslanted italic
% seventeen point
\font\svtnrm = \PSnorm \@magiii % normal
\font\svtnmi = cmmi10 \@magiii % math italic
\skewchar\svtnmi ='177 % for placement of accents
%\font\svtnmib = cmmib10 \@magiii % bold math italic
\font\svtnsy = cmsy10 \@magiii % math symbols
\skewchar\svtnsy ='60 % for placement of math accents
%\font\svtnsyb = cmbsy10 \@magiii % bold symbols
%\font\svtnit = \PSital \@magiii % text italic
%\font\svtnsl = \PSslan \@magiii % slanted
\font\svtnbf = \PSbold \@magiii % extended bold
%\font\svtnbfs = \PSboit \@magiii % extended bold slanted
%\font\svtntt = \PStype \@magiii % typewriter
%\font\svtntti = cmitt10 \@magiii % italic typewriter
%\font\svtntts = \PSsltt \@magiii % slanted typewriter
%\font\svtnsf = \PSsans \@magiii % sans serif
%\font\svtnsfi = \PSsani \@magiii % italic sans serif
%\font\svtnsfb = \PSsanb \@magiii % bold sans serif
%\font\svtnsc = cmcsc10 \@magiii % small caps
\font\svtnly = lasy10 \@magiii % LaTeX symbols
%\font\svtnlyb = lasyb10 \@magiii % bold LaTeX symbols
%\font\svtnuit = cmu10 \@magiii % unslanted italic
% twenty point
\font\twtyrm = \PSnorm \@magiv % normal
\font\twtymi = cmmi10 \@magiv % math italic
\skewchar\twtymi ='177 % for placement of accents
%\font\twtymib = cmmib10 \@magiv % bold math italic
\font\twtysy = cmsy10 \@magiv % math symbols
\skewchar\twtysy ='60 % for placement of math accents
%\font\twtysyb = cmbsy10 \@magiv % bold symbols
%\font\twtyit = \PSital \@magiv % text italic
%\font\twtysl = \PSslan \@magiv % slanted
%\font\twtybf = \PSbold \@magiv % extended bold
%\font\twtybfs = \PSboit \@magiv % extended bold slanted
%\font\twtytt = \PStype \@magiv % typewriter
%\font\twtytti = cmitt10 \@magiv % italic typewriter
%\font\twtytts = \PSsltt \@magiv % slanted typewriter
%\font\twtysf = \PSsans \@magiv % sans serif
%\font\twtysfi = \PSsani \@magiv % italic sans serif
%\font\twtysfb = \PSsanb \@magiv % bold sans serif
%\font\twtysc = cmcsc10 \@magiv % small caps
\font\twtyly = lasy10 \@magiv % LaTeX symbols
%\font\twtylyb = lasyb10 \@magiv % bold LaTeX symbols
%\font\twtyuit = cmu10 \@magiv % unslanted italic
% twenty-five point
\font\twfvrm = \PSnorm \@magv % normal
%\font\twfvmi = cmmi10 \@magv % math italic
%\font\twfvmib = cmmib10 \@magv % bold math italic
%\font\twfvsy = cmsy10 \@magv % math symbols
%\font\twfvsyb = cmbsy10 \@magv % bold symbols
%\font\twfvit = \PSital \@magv % text italic
%\font\twfvsl = \PSslan \@magv % slanted
%\font\twfvbf = \PSbold \@magv % extended bold
%\font\twfvbfs = \PSboit \@magv % extended bold slanted
%\font\twfvtt = \PStype \@magv % typewriter
%\font\twfvtti = cmitt10 \@magv % italic typewriter
%\font\twfvtts = \PSsltt \@magv % slanted typewriter
%\font\twfvsf = \PSsans \@magv % sans serif
%\font\twfvsfi = \PSsani \@magv % italic sans serif
%\font\twfvsfb = \PSsanb \@magv % bold sans serif
%\font\twfvsc = cmcsc10 \@magv % small caps
%\font\twfvly = lasy10 \@magv % LaTeX symbols
%\font\twfvlyb = lasyb10 \@magv % bold LaTeX symbols
%\font\twfvuit = cmu10 \@magv % unslanted italic
% Math extension
\font\tenex = cmex10
% line & circle fonts
\font\tenln = line10
\font\tenlnw = linew10
\font\tencirc = circle10
\font\tencircw = circlew10
% Change made 6 May 86: `\@warning' replaced by `\immediate\write 15'
% since it's not defined when lfonts.tex is read by lplain.tex.
%
\ifnum\fontdimen8\tenln=\fontdimen8\tencirc \else
\immediate\write 15{Incompatible thin line and circle fonts}\fi
\ifnum\fontdimen8\tenlnw=\fontdimen8\tencircw \else
\immediate\write 15{Incompatible thick line and circle fonts}\fi
% protected font names
\def\rm{\protect\prm}
\def\it{\protect\pit}
\def\bf{\protect\pbf}
\def\sl{\protect\psl}
\def\sf{\protect\psf}
\def\sc{\protect\psc}
\def\tt{\protect\ptt}
\def\sy{\protect\psy}
%% FONT-CUSTOMIZING: The following definitions define certain commands
%% to be abbreviations for certain font names. These commands are used
%% below in \@getfont commands, which load the loaded-on-demand fonts.
%% This is done only to save space. To change the fonts that are loaded
%% on demand, one can either change these definitions or else change
%% the arguments of the \@getfont commands.
%%
\def\@mbi{cmmib10}
\def\@mbsy{cmbsy10}
\def\@mcsc{cmcsc10}
\def\@lasyb{lasyb10}
% families
\newfam\itfam % \it is family 4
\newfam\slfam % \sl is family 5
\newfam\bffam % \bf is family 6
\newfam\ttfam % \tt is family 7
\newfam\sffam % \sf is family 8
\newfam\scfam % \sc is family 9
\newfam\lyfam % \ly is family 10
\newfam\syfam % \sy is family 11
\def\cal{\fam\tw@}
\def\mit{\fam\@ne}
\def\@setstrut{\setbox\strutbox=\hbox{\vrule \@height .7\baselineskip
\@depth .3\baselineskip \@width\z@}}
%% FONT-CUSTOMIZING: The commands \vpt, \vipt, ... , \xxvpt perform all
%% the declarations needed to change the type size to 5pt, 6pt, ... ,
%% 25pt. To see how this works, consider the definition of \viipt,
%% which determines the fonts used in a 7pt type size. The command
%% \def\pit{\fam\itfam\sevit}
%% means that the \it command causes the preloaded \sevit font to
%% be used--this font was defined earlier with a \font\sevit...
%% command. The commands
%% \textfont\itfam\sevit
%% \scriptfont\itfam\sevit
%% \scriptscriptfont\itfam\sevit
%% tell TeX to use the \sevit font for all three math-mode sizes
%% (text, script, and scriptscript) for the 7pt size.
%% The fonts appearing in these commands must be preloaded.
%%
%% The command
%% \def\pbf{\@getfont\pbf\bffam\@viipt{cmbx7}}
%% declares \bf to use a loaded-on-demand font--namely, the font
%% cmbx7.
%%
%% The command
%% \def\ptt{\@subfont\tt\rm}
%% declares that the \tt font is unavailable in the 7pt size, so
%% the \rm font is used instead. (The substituted type style should
%% correspond to a preloaded size.)
\def\vpt{\textfont\z@\fivrm
\scriptfont\z@\fivrm \scriptscriptfont\z@\fivrm
\textfont\@ne\fivmi \scriptfont\@ne\fivmi \scriptscriptfont\@ne\fivmi
\textfont\tw@\fivsy \scriptfont\tw@\fivsy \scriptscriptfont\tw@\fivsy
\textfont\thr@@\tenex \scriptfont\thr@@\tenex \scriptscriptfont\thr@@\tenex
\def\prm{\fam\z@\fivrm}%
\def\unboldmath{\everymath{}\everydisplay{}\@nomath
\unboldmath\fam\@ne\@boldfalse}\@boldfalse
\def\boldmath{\@subfont\boldmath\unboldmath}%
\def\pit{\@getfont\pit\itfam\@vpt{\PSital \atvpt}}%
\def\psl{\@subfont\sl\it}%
\def\pbf{\@getfont\pbf\bffam\@vpt{\PSbold \atvpt}}%
\def\ptt{\@subfont\tt\rm}%
\def\psf{\@subfont\sf\rm}%
\def\psc{\@subfont\sc\rm}%
\def\ly{\fam\lyfam\fivly}\textfont\lyfam\fivly
\scriptfont\lyfam\fivly \scriptscriptfont\lyfam\fivly
\def\psy{\@getfont\psy\syfam\@vpt{\PSsymb \atvpt}}%
\@setstrut\rm}
\def\@vpt{}
\def\vipt{\textfont\z@\sixrm
\scriptfont\z@\sixrm \scriptscriptfont\z@\sixrm
\textfont\@ne\sixmi \scriptfont\@ne\sixmi \scriptscriptfont\@ne\sixmi
\textfont\tw@\sixsy \scriptfont\tw@\sixsy \scriptscriptfont\tw@\sixsy
\textfont\thr@@\tenex \scriptfont\thr@@\tenex \scriptscriptfont\thr@@\tenex
\def\prm{\fam\z@\sixrm}%
\def\unboldmath{\everymath{}\everydisplay{}\@nomath
\unboldmath\@boldfalse}\@boldfalse
\def\boldmath{\@subfont\boldmath\unboldmath}%
\def\pit{\@getfont\pit\itfam\@vipt{\PSital\atvipt}}%
\def\psl{\@subfont\sl\rm}%
\def\pbf{\@getfont\pbf\bffam\@vipt{\PSbold\atvipt}}%
\def\ptt{\@subfont\tt\rm}%
\def\psf{\@subfont\sf\rm}%
\def\psc{\@subfont\sc\rm}%
\def\ly{\fam\lyfam\sixly}\textfont\lyfam\sixly
\scriptfont\lyfam\sixly \scriptscriptfont\lyfam\sixly
\def\psy{\@getfont\psy\syfam\@vipt{\PSsymb\atvipt}}%
\@setstrut\rm}
\def\@vipt{}
\def\viipt{\textfont\z@\sevrm
\scriptfont\z@\sixrm \scriptscriptfont\z@\fivrm
\textfont\@ne\sevmi \scriptfont\@ne\fivmi \scriptscriptfont\@ne\fivmi
\textfont\tw@\sevsy \scriptfont\tw@\fivsy \scriptscriptfont\tw@\fivsy
\textfont\thr@@\tenex \scriptfont\thr@@\tenex \scriptscriptfont\thr@@\tenex
\def\prm{\fam\z@\sevrm}%
\def\unboldmath{\everymath{}\everydisplay{}\@nomath
\unboldmath\@boldfalse}\@boldfalse
\def\boldmath{\@subfont\boldmath\unboldmath}%
\def\pit{\fam\itfam\sevit}\textfont\itfam\sevit
\scriptfont\itfam\sevit \scriptscriptfont\itfam\sevit
\def\psl{\@subfont\sl\it}%
\def\pbf{\@getfont\pbf\bffam\@viipt{\PSbold\atvipt}}%
\def\ptt{\@subfont\tt\rm}%
\def\psf{\@subfont\sf\rm}%
\def\psc{\@subfont\sc\rm}%
\def\ly{\fam\lyfam\sevly}\textfont\lyfam\sevly
\scriptfont\lyfam\fivly \scriptscriptfont\lyfam\fivly
\def\psy{\@getfont\psy\syfam\@viipt{\PSsymb\atviipt}}%
\@setstrut \rm}
\def\@viipt{}
\def\viiipt{\textfont\z@\egtrm
\scriptfont\z@\sixrm \scriptscriptfont\z@\fivrm
\textfont\@ne\egtmi \scriptfont\@ne\sixmi \scriptscriptfont\@ne\fivmi
\textfont\tw@\egtsy \scriptfont\tw@\sixsy \scriptscriptfont\tw@\fivsy
\textfont\thr@@\tenex \scriptfont\thr@@\tenex \scriptscriptfont\thr@@\tenex
\def\prm{\fam\z@\egtrm}%
\def\unboldmath{\everymath{}\everydisplay{}\@nomath
\unboldmath\@boldfalse}\@boldfalse
\def\boldmath{\@subfont\boldmath\unboldmath}%
\def\pit{\fam\itfam\egtit}\textfont\itfam\egtit
\scriptfont\itfam\sevit \scriptscriptfont\itfam\sevit
\def\psl{\@getfont\psl\slfam\@viiipt{\PSslan \atviiipt}}%
\def\pbf{\@getfont\pbf\bffam\@viiipt{\PSbold \atviiipt}}%
\def\ptt{\@getfont\ptt\ttfam\@viiipt{\PStype \atviiipt}\@nohyphens\ptt\@viiipt}%
\def\psf{\@getfont\psf\sffam\@viiipt{\PSsans \atviiipt}}%
\def\psc{\@getfont\psc\scfam\@viiipt{\@mcsc \atviiipt}}%
\def\ly{\fam\lyfam\egtly}\textfont\lyfam\egtly
\scriptfont\lyfam\sixly \scriptscriptfont\lyfam\fivly
\def\psy{\@getfont\psy\syfam\@viiipt{\PSsymb \atviiipt}}%
\@setstrut \rm}
\def\@viiipt{}
\def\ixpt{\textfont\z@\ninrm
\scriptfont\z@\sixrm \scriptscriptfont\z@\fivrm
\textfont\@ne\ninmi \scriptfont\@ne\sixmi \scriptscriptfont\@ne\fivmi
\textfont\tw@\ninsy \scriptfont\tw@\sixsy \scriptscriptfont\tw@\fivsy
\textfont\thr@@\tenex \scriptfont\thr@@\tenex \scriptscriptfont\thr@@\tenex
\def\prm{\fam\z@\ninrm}%
\def\unboldmath{\everymath{}\everydisplay{}\@nomath\unboldmath
\@boldfalse}\@boldfalse
\def\boldmath{\@subfont\boldmath\unboldmath}%
\def\pit{\fam\itfam\ninit}\textfont\itfam\ninit
\scriptfont\itfam\sevit \scriptscriptfont\itfam\sevit
\def\psl{\@getfont\psl\slfam\@ixpt{\PSslan\atixpt}}%
\def\pbf{\fam\bffam\ninbf}\textfont\bffam\ninbf
\scriptfont\bffam\ninbf \scriptscriptfont\bffam\ninbf
\def\ptt{\fam\ttfam\nintt}\textfont\ttfam\nintt
\scriptfont\ttfam\nintt \scriptscriptfont\ttfam\nintt
\def\psf{\@getfont\psf\sffam\@ixpt{\PSsans\atixpt}}%
\def\psc{\@getfont\psc\scfam\@ixpt{\@mcsc\atixpt}}%
\def\ly{\fam\lyfam\ninly}\textfont\lyfam\ninly
\scriptfont\lyfam\sixly \scriptscriptfont\lyfam\fivly
\def\psy{\@getfont\psy\syfam\@ixpt{\PSsymb\atixpt}}%
\@setstrut \rm}
\def\@ixpt{}
\def\xpt{\textfont\z@\tenrm
\scriptfont\z@\sevrm \scriptscriptfont\z@\fivrm
\textfont\@ne\tenmi \scriptfont\@ne\sevmi \scriptscriptfont\@ne\fivmi
\textfont\tw@\tensy \scriptfont\tw@\sevsy \scriptscriptfont\tw@\fivsy
\textfont\thr@@\tenex \scriptfont\thr@@\tenex \scriptscriptfont\thr@@\tenex
\def\unboldmath{\everymath{}\everydisplay{}\@nomath\unboldmath
\textfont\@ne\tenmi
\textfont\tw@\tensy \textfont\lyfam\tenly
\@boldfalse}\@boldfalse
\def\boldmath{\@ifundefined{tenmib}{\global\font\tenmib\@mbi
\global\font\tensyb\@mbsy
\global\font\tenlyb\@lasyb\relax\@addfontinfo\@xpt
{\def\boldmath{\everymath{\mit}\everydisplay{\mit}\@prtct\@nomathbold
\textfont\@ne\tenmib \textfont\tw@\tensyb
\textfont\lyfam\tenlyb \@prtct\@boldtrue}}}{}\@xpt\boldmath}%
\def\prm{\fam\z@\tenrm}%
\def\pit{\fam\itfam\tenit}\textfont\itfam\tenit \scriptfont\itfam\sevit
\scriptscriptfont\itfam\sevit
\def\psl{\fam\slfam\tensl}\textfont\slfam\tensl
\scriptfont\slfam\tensl \scriptscriptfont\slfam\tensl
\def\pbf{\fam\bffam\tenbf}\textfont\bffam\tenbf
\scriptfont\bffam\tenbf \scriptscriptfont\bffam\tenbf
\def\ptt{\fam\ttfam\tentt}\textfont\ttfam\tentt
\scriptfont\ttfam\tentt \scriptscriptfont\ttfam\tentt
\def\psf{\fam\sffam\tensf}\textfont\sffam\tensf
\scriptfont\sffam\tensf \scriptscriptfont\sffam\tensf
\def\psc{\@getfont\psc\scfam\@xpt{\@mcsc}}%
\def\ly{\fam\lyfam\tenly}\textfont\lyfam\tenly
\scriptfont\lyfam\sevly \scriptscriptfont\lyfam\fivly
\def\psy{\@getfont\psy\syfam\@xpt{\PSsymb\atxpt}}%
\@setstrut \rm}
\def\@xpt{}
\def\xipt{\textfont\z@\elvrm
\scriptfont\z@\egtrm \scriptscriptfont\z@\sixrm
\textfont\@ne\elvmi \scriptfont\@ne\egtmi \scriptscriptfont\@ne\sixmi
\textfont\tw@\elvsy \scriptfont\tw@\egtsy \scriptscriptfont\tw@\sixsy
\textfont\thr@@\tenex \scriptfont\thr@@\tenex \scriptscriptfont\thr@@\tenex
\def\unboldmath{\everymath{}\everydisplay{}\@nomath\unboldmath
\textfont\@ne\elvmi \textfont\tw@\elvsy
\textfont\lyfam\elvly \@boldfalse}\@boldfalse
\def\boldmath{\@ifundefined{elvmib}{\global\font\elvmib\@mbi\@halfmag
\global\font\elvsyb\@mbsy\@halfmag
\global\font\elvlyb\@lasyb\@halfmag\relax\@addfontinfo\@xipt
{\def\boldmath{\everymath{\mit}\everydisplay{\mit}\@prtct\@nomathbold
\textfont\@ne\elvmib \textfont\tw@\elvsyb
\textfont\lyfam\elvlyb\@prtct\@boldtrue}}}{}\@xipt\boldmath}%
\def\prm{\fam\z@\elvrm}%
\def\pit{\fam\itfam\elvit}\textfont\itfam\elvit
\scriptfont\itfam\egtit \scriptscriptfont\itfam\sevit
\def\psl{\fam\slfam\elvsl}\textfont\slfam\elvsl
\scriptfont\slfam\tensl \scriptscriptfont\slfam\tensl
\def\pbf{\fam\bffam\elvbf}\textfont\bffam\elvbf
\scriptfont\bffam\ninbf \scriptscriptfont\bffam\ninbf
\def\ptt{\fam\ttfam\elvtt}\textfont\ttfam\elvtt
\scriptfont\ttfam\nintt \scriptscriptfont\ttfam\nintt
\def\psf{\fam\sffam\elvsf}\textfont\sffam\elvsf
\scriptfont\sffam\tensf \scriptscriptfont\sffam\tensf
\def\psc{\@getfont\psc\scfam\@xipt{\@mcsc \@halfmag}}%
\def\ly{\fam\lyfam\elvly}\textfont\lyfam\elvly
\scriptfont\lyfam\egtly \scriptscriptfont\lyfam\sixly
\def\psy{\@getfont\psy\syfam\@xipt{\PSsymb \@halfmag}}%
\@setstrut \rm}
\def\@xipt{}
\def\xiipt{\textfont\z@\twlrm
\scriptfont\z@\egtrm \scriptscriptfont\z@\sixrm
\textfont\@ne\twlmi \scriptfont\@ne\egtmi \scriptscriptfont\@ne\sixmi
\textfont\tw@\twlsy \scriptfont\tw@\egtsy \scriptscriptfont\tw@\sixsy
\textfont\thr@@\tenex \scriptfont\thr@@\tenex \scriptscriptfont\thr@@\tenex
\def\unboldmath{\everymath{}\everydisplay{}\@nomath\unboldmath
\textfont\@ne\twlmi
\textfont\tw@\twlsy \textfont\lyfam\twlly
\@boldfalse}\@boldfalse
\def\boldmath{\@ifundefined{twlmib}{\global\font\twlmib\@mbi \@magi\global
\font\twlsyb\@mbsy \@magi\global\font
\twllyb\@lasyb \@magi\relax\@addfontinfo\@xiipt
{\def\boldmath{\everymath
{\mit}\everydisplay{\mit}\@prtct\@nomathbold
\textfont\@ne\twlmib \textfont\tw@\twlsyb
\textfont\lyfam\twllyb\@prtct\@boldtrue}}}{}\@xiipt\boldmath}%
\def\prm{\fam\z@\twlrm}%
\def\pit{\fam\itfam\twlit}\textfont\itfam\twlit \scriptfont\itfam\egtit
\scriptscriptfont\itfam\sevit
\def\psl{\fam\slfam\twlsl}\textfont\slfam\twlsl
\scriptfont\slfam\tensl \scriptscriptfont\slfam\tensl
\def\pbf{\fam\bffam\twlbf}\textfont\bffam\twlbf
\scriptfont\bffam\ninbf \scriptscriptfont\bffam\ninbf
\def\ptt{\fam\ttfam\twltt}\textfont\ttfam\twltt
\scriptfont\ttfam\nintt \scriptscriptfont\ttfam\nintt
\def\psf{\fam\sffam\twlsf}\textfont\sffam\twlsf
\scriptfont\sffam\tensf \scriptscriptfont\sffam\tensf
\def\psc{\@getfont\psc\scfam\@xiipt{\@mcsc \@magi}}%
\def\ly{\fam\lyfam\twlly}\textfont\lyfam\twlly
\scriptfont\lyfam\egtly \scriptscriptfont\lyfam\sixly
\def\psy{\@getfont\psy\syfam\@xiipt{\PSsymb \@magi}}%
\@setstrut \rm}
\def\@xiipt{}
\def\xivpt{\textfont\z@\frtnrm
\scriptfont\z@\tenrm \scriptscriptfont\z@\sevrm
\textfont\@ne\frtnmi \scriptfont\@ne\tenmi \scriptscriptfont\@ne\sevmi
\textfont\tw@\frtnsy \scriptfont\tw@\tensy \scriptscriptfont\tw@\sevsy
\textfont\thr@@\tenex \scriptfont\thr@@\tenex \scriptscriptfont\thr@@\tenex
\def\unboldmath{\everymath{}\everydisplay{}\@nomath\unboldmath
\textfont\@ne\frtnmi \textfont\tw@\frtnsy
\textfont\lyfam\frtnly \@boldfalse}\@boldfalse
\def\boldmath{\@ifundefined{frtnmib}{\global\font
\frtnmib\@mbi \@magii\global\font\frtnsyb\@mbsy \@magii
\global\font\frtnlyb\@lasyb \@magii\relax\@addfontinfo\@xivpt
{\def\boldmath{\everymath
{\mit}\everydisplay{\mit}\@prtct\@nomathbold
\textfont\@ne\frtnmib \textfont\tw@\frtnsyb
\textfont\lyfam\frtnlyb\@prtct\@boldtrue}}}{}\@xivpt\boldmath}%
\def\prm{\fam\z@\frtnrm}%
\def\pit{\@getfont\pit\itfam\@xivpt{\PSital \@magii}}%
\def\psl{\@getfont\psl\slfam\@xivpt{\PSslan \@magii}}%
\def\pbf{\fam\bffam\frtnbf}\textfont\bffam\frtnbf
\scriptfont\bffam\tenbf \scriptscriptfont\bffam\ninbf
\def\ptt{\@getfont\ptt\ttfam\@xivpt{\PStype \@magii}\@nohyphens\ptt\@xivpt}%
\def\psf{\@getfont\psf\sffam\@xivpt{\PSsans \@magii}}%
\def\psc{\@getfont\psc\scfam\@xivpt{\@mcsc \@magii}}%
\def\ly{\fam\lyfam\frtnly}\textfont\lyfam\frtnly
\scriptfont\lyfam\tenly \scriptscriptfont\lyfam\sevly
\def\psy{\@getfont\psy\syfam\@xivpt{\PSsymb \@magii}}%
\@setstrut \rm}
\def\@xivpt{}
\def\xviipt{\textfont\z@\svtnrm
\scriptfont\z@\twlrm \scriptscriptfont\z@\tenrm
\textfont\@ne\svtnmi \scriptfont\@ne\twlmi \scriptscriptfont\@ne\tenmi
\textfont\tw@\svtnsy \scriptfont\tw@\twlsy \scriptscriptfont\tw@\tensy
\textfont\thr@@\tenex \scriptfont\thr@@\tenex \scriptscriptfont\thr@@\tenex
\def\unboldmath{\everymath{}\everydisplay{}\@nomath\unboldmath
\textfont\@ne\svtnmi \textfont\tw@\svtnsy \textfont\lyfam\svtnly
\@boldfalse}\@boldfalse
\def\boldmath{\@subfont\boldmath\unboldmath}%
\def\prm{\fam\z@\svtnrm}%
\def\pit{\@getfont\pit\itfam\@xviipt{\PSital \@magiii}}%
\def\psl{\@getfont\psl\slfam\@xviipt{\PSslan \@magiii}}%
\def\pbf{\fam\bffam\svtnbf}\textfont\bffam\svtnbf
\scriptfont\bffam\twlbf \scriptscriptfont\bffam\tenbf
\def\ptt{\@getfont\ptt\ttfam\@xviipt{\PStype \@magiii}\@nohyphens
\ptt\@xviipt}%
\def\psf{\@getfont\psf\sffam\@xviipt{\PSsans \@magiii}}%
\def\psc{\@getfont\psc\scfam\@xviipt{\@mcsc \@magiii}}%
\def\ly{\fam\lyfam\svtnly}\textfont\lyfam\svtnly
\scriptfont\lyfam\twlly \scriptscriptfont\lyfam\tenly
\def\psy{\@getfont\psy\syfam\@xviipt{\PSsymb \@magiii}}%
\@setstrut \rm}
\def\@xviipt{}
\def\xxpt{\textfont\z@\twtyrm
\scriptfont\z@\frtnrm \scriptscriptfont\z@\twlrm
\textfont\@ne\twtymi \scriptfont\@ne\frtnmi \scriptscriptfont\@ne\twlmi
\textfont\tw@\twtysy \scriptfont\tw@\frtnsy \scriptscriptfont\tw@\twlsy
\textfont\thr@@\tenex \scriptfont\thr@@\tenex \scriptscriptfont\thr@@\tenex
\def\unboldmath{\everymath{}\everydisplay{}\@nomath\unboldmath
\textfont\@ne\twtymi \textfont\tw@\twtysy \textfont\lyfam\twtyly
\@boldfalse}\@boldfalse
\def\boldmath{\@subfont\boldmath\unboldmath}%
\def\prm{\fam\z@\twtyrm}%
\def\pit{\@getfont\pit\itfam\@xxpt{\PSital \@magiv}}%
\def\psl{\@getfont\psl\slfam\@xxpt{\PSslan \@magiv}}%
\def\pbf{\@getfont\pbf\bffam\@xxpt{\PSbold \@magiv}}%
\def\ptt{\@getfont\ptt\ttfam\@xxpt{\PStype \@magiv}\@nohyphens\ptt\@xxpt}%
\def\psf{\@getfont\psf\sffam\@xxpt{\PSsans \@magiv}}%
\def\psc{\@getfont\psc\scfam\@xxpt{\@mcsc \@magiv}}%
\def\ly{\fam\lyfam\twtyly}\textfont\lyfam\twtyly
\scriptfont\lyfam\frtnly \scriptscriptfont\lyfam\twlly
\def\psy{\@getfont\psy\syfam\@xxpt{\PSsymb \@magiv}}%
\@setstrut \rm}
\def\@xxpt{}
\def\xxvpt{\textfont\z@\twfvrm
\scriptfont\z@\twtyrm \scriptscriptfont\z@\svtnrm
\textfont\@ne\twtymi \scriptfont\@ne\twtymi \scriptscriptfont\@ne\svtnmi
\textfont\tw@\twtysy \scriptfont\tw@\twtysy \scriptscriptfont\tw@\svtnsy
\textfont\thr@@\tenex \scriptfont\thr@@\tenex \scriptscriptfont\thr@@\tenex
\def\unboldmath{\everymath{}\everydisplay{}\@nomath\unboldmath
\textfont\@ne\twtymi \textfont\tw@\twtysy \textfont\lyfam\twtyly
\@boldfalse}\@boldfalse
\def\boldmath{\@subfont\boldmath\unboldmath}%
\def\prm{\fam\z@\twfvrm}%
\def\pit{\@getfont\pit\itfam\@xxvpt{\PSital \@magv}}%
\def\psl{\@subfont\sl\rm}%
\def\pbf{\@getfont\pbf\bffam\@xxvpt{\PSbold \@magv}}%
\def\ptt{\@subfont\tt\rm}%
\def\psf{\@subfont\sf\rm}%
\def\psc{\@subfont\sc\rm}%
\def\ly{\fam\lyfam\twtyly}\textfont\lyfam\twtyly
\scriptfont\lyfam\twtyly \scriptscriptfont\lyfam\svtnly
\def\psy{\@getfont\psy\syfam\@xxvpt{\PSsymb \@magv}}%
\@setstrut \rm}
\def\@xxvpt{}
% SPECIAL LaTeX character definitions
% Definitions of math operators added by LaTeX
\mathchardef\mho"0A30
\mathchardef\Join"3A31
\mathchardef\Box"0A32
\mathchardef\Diamond"0A33
\mathchardef\leadsto"3A3B
\mathchardef\sqsubset"3A3C
\mathchardef\sqsupset"3A3D
\def\lhd{\mathbin{< \hbox to -.43em{}\hbox{\vrule
\@width .065em \@height .55em \@depth .05em}\hbox to .2em{}}}
\def\rhd{\mathbin{\hbox to .3em{}\hbox{\vrule \@width .065em \@height
.55em \@depth .05em}\hbox to -.43em{}>}}
\def\unlhd{\mathbin{\leq \hbox to -.43em{}\hbox
{\vrule \@width .065em \@height .63em \@depth -.08em}\hbox to .2em{}}}
\def\unrhd{\mathbin{ \hbox to .3em{}\hbox
{\vrule \@width .065em \@height .63em \@depth -.08em}\hbox to -.43em{}\geq}}
% Definition of \$ to work in italic font (since it produces a pound sterling
% sign in the cmit font.
\def\${\protect\pdollar}
\def\pdollar{{\ifdim \fontdimen\@ne\font >\z@ \sl \fi\char`\$}}
% Definition of pound sterling sign.
% Modified 10 Apr 89 to work in math mode.
\def\pounds{\protect\ppounds}
%\def\ppounds{\relax\ifmmode\mathchar"4A3\else{\it \char'243}\fi}
\def\ppounds{\relax\ifmmode\hbox{\it \char'243}\else{\it \char'243}\fi}
% Definition of \copyright changed so it works in other type styles,
% and so it is robust
\def\copyright{\protect\pcopyright}
\def\pcopyright{{\rm\ooalign{\hfil
\raise.07ex\hbox{c}\hfil\crcr\mathhexbox20D}}}